Program nome ;
var
m1:array[1..4,1..4] of integer;
i,j:integer;
m2:string;
 
 
 Begin
 textcolor(yellow);
 
   for i:=1 to 4 do
   	for j:= 1 to 4 do
   	begin
 		if i=j then m1[i,j]:=i+j
 	
 	     
     end;
     for i:=1 to 4 do  
     begin
	   writeln;
   	   for j:= 1 to 4 do
		  if i=j then
   	   write(m1[i,j],'   ')
   	        else
   	        write('  ');
   	end;
 
 End.